demand allot-data
supplied-by
: allot-chars ( c-addr u -- c-addr2 u )  tuck chars allot-data swap ;
